program example_random

    use random_module, only: rk, randu, randn
    use display_module, only: display
    implicit none

    real(rk) :: x(5)

    call randu(x, -1.0_rk, 1.0_rk)
    call display(x, 'randu:')

    call randn(x, 0.0_rk, 1.0_rk)
    call display(x, 'randn:')

end program example_random
!> [vector: 5] randu:
!>  3.765E-01,  8.255E-01,  3.964E-02, -4.673E-01,  7.003E-01
!> [vector: 5] randn:
!> -1.146E+00,  3.574E-01, -1.133E+00,  4.916E-01, -9.071E-01
